[Linux-aus] FOR PUBLIC RELEASE: Linux Australia Member Survey 2013

Mon Dec 30 01:30:26 EST 2013

Hi everyone,

As promised in earlier communications [1], the Linux Australia Member 
Survey has now been finalised with many thanks to our partners in 
ACSPRI. This artefact will be used by Council over the next few years to 
guide strategic activities and to target resources and energy. I would 
also like to thank the nearly 600 members who gave up your valuable time 
to complete the survey. We very much value your contribution, and 
appreciate you making this effort. The response rate was nearly double 
what we had hoped for; giving us much confidence that our community is 
engaged and interested in Linux Australia and wants to help shape our 
future.

I'd also like to take this opportunity to thank ACSPRI, in particular 
Adam Zammit, for their efforts here.

As indicated, we are hereby releasing the Member Survey openly and 
transparently. The only modifications made to the data have been to 
remove identifying information and offensive language  in the free text 
fields; some of these edits have results in some rendering anomalies for 
which I apologise.

What are the key findings?

- We have a previously under-recognised significant population who 
identify as retired and have needs for basic and introductory 
information around Linux
- We have a poor pipeline of younger and student members that requires 
attention
- Our voice for advocacy, influence and promotion requires strengthening
- We need to promote more vocally what we do
- Linux Australia is generally doing well; but there is room for us to 
do more
- We need to keep linux.conf.au affordable
- There is a strong level of confidence in Council generally but more 
members would like to know us more
- For many members this was the first communication they had received as 
a member

As always, your comments, questions and concerns are warmly welcomed.

Kind regards,
Kathy

[1] http://lists.linux.org.au/pipermail/linux-aus/2013-November/021171.html

-- 
Kathy Reid
Secretary
Linux Australia

secretary at linux.org.au
http://linux.org.au

Linux Australia Inc
GPO Box 4788
Sydney NSW 2001
Australia

ABN 56 987 117 479

-------------- next part --------------
A non-text attachment was scrubbed...
Name: LA-2013 - final.pdf
Type: application/pdf
Size: 463586 bytes
Desc: not available
Url : http://lists.linux.org.au/pipermail/linux-aus/attachments/20131230/442de29e/attachment-0002.pdf 
-------------- next part --------------
A non-text attachment was scrubbed...
Name: linux-australia-member-survey-2013-final.pdf
Type: application/pdf
Size: 187831 bytes
Desc: not available
Url : http://lists.linux.org.au/pipermail/linux-aus/attachments/20131230/442de29e/attachment-0003.pdf 
-------------- next part --------------
A non-text attachment was scrubbed...
Name: linux-australia-member-survey-final-2013.lss
Type: text/xml
Size: 176477 bytes
Desc: not available
Url : http://lists.linux.org.au/pipermail/linux-aus/attachments/20131230/442de29e/attachment-0001.bin 
-------------- next part --------------
A non-text attachment was scrubbed...
Name: survey_12767_R_data_file-CLEAN.csv
Type: text/csv
Size: 79856 bytes
Desc: not available
Url : http://lists.linux.org.au/pipermail/linux-aus/attachments/20131230/442de29e/attachment-0001.csv 
-------------- next part --------------
#$Rev: 12179 $ filter.
data <- read.table("survey_12767_R_data_file.csv", sep=",", quote = "'", na.strings=c("","\"\""), stringsAsFactors=FALSE)

data[, 1] <- as.numeric(data[, 1])
attributes(data)$variable.labels[1] <- "id"
names(data)[1] <- "id"

data[, 2] <- as.character(data[, 2])
attributes(data)$variable.labels[2] <- "submitdate"
names(data)[2] <- "submitdate"

#Field hidden

data[, 3] <- as.character(data[, 3])
attributes(data)$variable.labels[3] <- "startlanguage"
names(data)[3] <- "startlanguage"

data[, 4] <- as.numeric(data[, 4])
attributes(data)$variable.labels[4] <- "[linux.conf.au?] Were you aware that Linux Australia provides services to facilitate the running of open source technology events such as..."
data[, 4] <- factor(data[, 4], levels=c(1,2),labels=c("Yes, I was aware","No, I was not aware"))
names(data)[4] <- "A1_A"

data[, 5] <- as.numeric(data[, 5])
attributes(data)$variable.labels[5] <- "[BarCamp events (such as BarCampMelbourne)?] Were you aware that Linux Australia provides services to facilitate the running of open source technology events such as..."
data[, 5] <- factor(data[, 5], levels=c(1,2),labels=c("Yes, I was aware","No, I was not aware"))
names(data)[5] <- "A1_B"

data[, 6] <- as.numeric(data[, 6])
attributes(data)$variable.labels[6] <- "[WordCamp events (such as WordCamp Melbourne)?] Were you aware that Linux Australia provides services to facilitate the running of open source technology events such as..."
data[, 6] <- factor(data[, 6], levels=c(1,2),labels=c("Yes, I was aware","No, I was not aware"))
names(data)[6] <- "A1_C"

data[, 7] <- as.numeric(data[, 7])
attributes(data)$variable.labels[7] <- "[Drupal events (such as Drupal Downunder)?] Were you aware that Linux Australia provides services to facilitate the running of open source technology events such as..."
data[, 7] <- factor(data[, 7], levels=c(1,2),labels=c("Yes, I was aware","No, I was not aware"))
names(data)[7] <- "A1_D"

data[, 8] <- as.numeric(data[, 8])
attributes(data)$variable.labels[8] <- "[PyCon-AU?] Were you aware that Linux Australia provides services to facilitate the running of open source technology events such as..."
data[, 8] <- factor(data[, 8], levels=c(1,2),labels=c("Yes, I was aware","No, I was not aware"))
names(data)[8] <- "A1_E"

data[, 9] <- as.numeric(data[, 9])
attributes(data)$variable.labels[9] <- "[linux.conf.au] Have you attended any of these events in the past?"
data[, 9] <- factor(data[, 9], levels=c(1,2,3),labels=c("No, never","Yes, once","Yes, two or more times"))
names(data)[9] <- "A2_A"

data[, 10] <- as.numeric(data[, 10])
attributes(data)$variable.labels[10] <- "[BarCamp event (such as BarCampMelbourne)] Have you attended any of these events in the past?"
data[, 10] <- factor(data[, 10], levels=c(1,2,3),labels=c("No, never","Yes, once","Yes, two or more times"))
names(data)[10] <- "A2_B"

data[, 11] <- as.numeric(data[, 11])
attributes(data)$variable.labels[11] <- "[WordCamp event (such as WordCamp Melbourne)?] Have you attended any of these events in the past?"
data[, 11] <- factor(data[, 11], levels=c(1,2,3),labels=c("No, never","Yes, once","Yes, two or more times"))
names(data)[11] <- "A2_C"

data[, 12] <- as.numeric(data[, 12])
attributes(data)$variable.labels[12] <- "[Drupal event (such as Drupal Downunder)] Have you attended any of these events in the past?"
data[, 12] <- factor(data[, 12], levels=c(1,2,3),labels=c("No, never","Yes, once","Yes, two or more times"))
names(data)[12] <- "A2_D"

data[, 13] <- as.numeric(data[, 13])
attributes(data)$variable.labels[13] <- "[PyCon-AU] Have you attended any of these events in the past?"
data[, 13] <- factor(data[, 13], levels=c(1,2,3),labels=c("No, never","Yes, once","Yes, two or more times"))
names(data)[13] <- "A2_E"

data[, 14] <- as.numeric(data[, 14])
attributes(data)$variable.labels[14] <- "Were you aware that Linux Australia has a grants scheme for members?"
data[, 14] <- factor(data[, 14], levels=c(1,2),labels=c("Yes, I was aware","No, I was not aware"))
names(data)[14] <- "A3"

data[, 15] <- as.numeric(data[, 15])
attributes(data)$variable.labels[15] <- "Have you applied for a grant from Linux Australia in the past?"
data[, 15] <- factor(data[, 15], levels=c(1,2,3),labels=c("No, never","Yes, once","Yes, two or more times"))
names(data)[15] <- "A4"

data[, 16] <- as.numeric(data[, 16])
attributes(data)$variable.labels[16] <- "Were you aware that Linux Australia provides technical services, administration and insurance to subcommittees such as Linux User Groups and other open source groups (such as Python, PHP etc)?"
data[, 16] <- factor(data[, 16], levels=c(1,2),labels=c("Yes, I was aware","No, I was not aware"))
names(data)[16] <- "A5"

data[, 17] <- as.numeric(data[, 17])
attributes(data)$variable.labels[17] <- "Are you a member of a Linux User Group or other open source group (such as Python, PHP etc)?"
data[, 17] <- factor(data[, 17], levels=c(1,2),labels=c("Yes","No"))
names(data)[17] <- "A6"

data[, 18] <- as.numeric(data[, 18])
attributes(data)$variable.labels[18] <- "Were you aware that Linux Australia runs the Rusty Wrench award annually to recognise outstanding members of the open source community?"
data[, 18] <- factor(data[, 18], levels=c(1,2),labels=c("Yes, I was aware","No, I was not aware"))
names(data)[18] <- "A7"

data[, 19] <- as.numeric(data[, 19])
attributes(data)$variable.labels[19] <- "Have you ever nominated someone or been nominated for a Rusty Wrench award?"
data[, 19] <- factor(data[, 19], levels=c(1,2),labels=c("Yes","No"))
names(data)[19] <- "A8"

data[, 20] <- as.numeric(data[, 20])
attributes(data)$variable.labels[20] <- "Were you aware that Linux Australia has a job listing on the website for jobs inside Australia related to Linux or Open Source?"
data[, 20] <- factor(data[, 20], levels=c(1,2),labels=c("Yes, I was aware","No, I was not aware"))
names(data)[20] <- "A9"

data[, 21] <- as.numeric(data[, 21])
attributes(data)$variable.labels[21] <- "How often do you check the job postings on the Linux Australia website?"
data[, 21] <- factor(data[, 21], levels=c(1,2,3,4,5),labels=c("Never","A few times a year","About once or twice a month","About once a week","More than once a week"))
names(data)[21] <- "A10"

data[, 22] <- as.numeric(data[, 22])
attributes(data)$variable.labels[22] <- "[ensure a successful, and to a lesser extent, profitable linux.conf.au] Were you aware that the priorities of Linux Australia are to..."
data[, 22] <- factor(data[, 22], levels=c(1,2),labels=c("Yes, I was aware","No, I was not aware"))
names(data)[22] <- "B1_1"

data[, 23] <- as.numeric(data[, 23])
attributes(data)$variable.labels[23] <- "[grow the Australian open source technical community and the social capital within that community] Were you aware that the priorities of Linux Australia are to..."
data[, 23] <- factor(data[, 23], levels=c(1,2),labels=c("Yes, I was aware","No, I was not aware"))
names(data)[23] <- "B1_2"

data[, 24] <- as.numeric(data[, 24])
attributes(data)$variable.labels[24] <- "[ensure an effective pipeline of committed open source enthusiasts including fostering younger members in high school and universities etc] Were you aware that the priorities of Linux Australia are to..."
data[, 24] <- factor(data[, 24], levels=c(1,2),labels=c("Yes, I was aware","No, I was not aware"))
names(data)[24] <- "B1_3"

data[, 25] <- as.numeric(data[, 25])
attributes(data)$variable.labels[25] <- "[increase the grants and funding program] Were you aware that the priorities of Linux Australia are to..."
data[, 25] <- factor(data[, 25], levels=c(1,2),labels=c("Yes, I was aware","No, I was not aware"))
names(data)[25] <- "B1_4"

data[, 26] <- as.numeric(data[, 26])
attributes(data)$variable.labels[26] <- "[increase promotion and communication activities, such as newsletter production] Were you aware that the priorities of Linux Australia are to..."
data[, 26] <- factor(data[, 26], levels=c(1,2),labels=c("Yes, I was aware","No, I was not aware"))
names(data)[26] <- "B1_5"

data[, 27] <- as.numeric(data[, 27])
attributes(data)$variable.labels[27] <- "[prevent burnout within the community, which is largely volunteer based, by increasing and widening participation] Were you aware that the priorities of Linux Australia are to..."
data[, 27] <- factor(data[, 27], levels=c(1,2),labels=c("Yes, I was aware","No, I was not aware"))
names(data)[27] <- "B1_6"

data[, 28] <- as.numeric(data[, 28])
attributes(data)$variable.labels[28] <- "[increase the voice Linux Australia has in the Australian IT and open source sector, and grow relationships with media and government] Were you aware that the priorities of Linux Australia are to..."
data[, 28] <- factor(data[, 28], levels=c(1,2),labels=c("Yes, I was aware","No, I was not aware"))
names(data)[28] <- "B1_7"

data[, 29] <- as.numeric(data[, 29])
attributes(data)$variable.labels[29] <- "[increase influence in the Australian IT sector, particularly regarding software patents, digital privacy, IT related infrastructure and legislation] Were you aware that the priorities of Linux Australia are to..."
data[, 29] <- factor(data[, 29], levels=c(1,2),labels=c("Yes, I was aware","No, I was not aware"))
names(data)[29] <- "B1_8"

data[, 30] <- as.numeric(data[, 30])
attributes(data)$variable.labels[30] <- "[have fun!] Were you aware that the priorities of Linux Australia are to..."
data[, 30] <- factor(data[, 30], levels=c(1,2),labels=c("Yes, I was aware","No, I was not aware"))
names(data)[30] <- "B1_9"

data[, 31] <- as.numeric(data[, 31])
attributes(data)$variable.labels[31] <- "[ensure a successful, and to a lesser extent, profitable linux.conf.au] How important do you think the following priorities are for Linux Australia?"
data[, 31] <- factor(data[, 31], levels=c(1,2,3,4),labels=c("Very important","Fairly important","Not very important","Not important at all"))
names(data)[31] <- "B2_1"

data[, 32] <- as.numeric(data[, 32])
attributes(data)$variable.labels[32] <- "[grow the Australian open source technical community and the social capital within that community] How important do you think the following priorities are for Linux Australia?"
data[, 32] <- factor(data[, 32], levels=c(1,2,3,4),labels=c("Very important","Fairly important","Not very important","Not important at all"))
names(data)[32] <- "B2_2"

data[, 33] <- as.numeric(data[, 33])
attributes(data)$variable.labels[33] <- "[ensure an effective pipeline of committed open source enthusiasts including fostering younger members in high school and universities etc] How important do you think the following priorities are for Linux Australia?"
data[, 33] <- factor(data[, 33], levels=c(1,2,3,4),labels=c("Very important","Fairly important","Not very important","Not important at all"))
names(data)[33] <- "B2_3"

data[, 34] <- as.numeric(data[, 34])
attributes(data)$variable.labels[34] <- "[increase the grants and funding program] How important do you think the following priorities are for Linux Australia?"
data[, 34] <- factor(data[, 34], levels=c(1,2,3,4),labels=c("Very important","Fairly important","Not very important","Not important at all"))
names(data)[34] <- "B2_4"

data[, 35] <- as.numeric(data[, 35])
attributes(data)$variable.labels[35] <- "[increase promotion and communication activities, such as newsletter production] How important do you think the following priorities are for Linux Australia?"
data[, 35] <- factor(data[, 35], levels=c(1,2,3,4),labels=c("Very important","Fairly important","Not very important","Not important at all"))
names(data)[35] <- "B2_5"

data[, 36] <- as.numeric(data[, 36])
attributes(data)$variable.labels[36] <- "[prevent burnout within the community, which is largely volunteer based, by increasing and widening participation] How important do you think the following priorities are for Linux Australia?"
data[, 36] <- factor(data[, 36], levels=c(1,2,3,4),labels=c("Very important","Fairly important","Not very important","Not important at all"))
names(data)[36] <- "B2_6"

data[, 37] <- as.numeric(data[, 37])
attributes(data)$variable.labels[37] <- "[increase the voice Linux Australia has in the Australian IT and open source sector, and grow relationships with media and government] How important do you think the following priorities are for Linux Australia?"
data[, 37] <- factor(data[, 37], levels=c(1,2,3,4),labels=c("Very important","Fairly important","Not very important","Not important at all"))
names(data)[37] <- "B2_7"

data[, 38] <- as.numeric(data[, 38])
attributes(data)$variable.labels[38] <- "[increase influence in the Australian IT sector, particularly regarding software patents, digital privacy, IT related infrastructure and legislation] How important do you think the following priorities are for Linux Australia?"
data[, 38] <- factor(data[, 38], levels=c(1,2,3,4),labels=c("Very important","Fairly important","Not very important","Not important at all"))
names(data)[38] <- "B2_8"

data[, 39] <- as.numeric(data[, 39])
attributes(data)$variable.labels[39] <- "[have fun!] How important do you think the following priorities are for Linux Australia?"
data[, 39] <- factor(data[, 39], levels=c(1,2,3,4),labels=c("Very important","Fairly important","Not very important","Not important at all"))
names(data)[39] <- "B2_9"

data[, 40] <- as.numeric(data[, 40])
attributes(data)$variable.labels[40] <- "Are there any other member needs that Linux Australia should address?"
data[, 40] <- factor(data[, 40], levels=c(1,2),labels=c("Yes","No"))
names(data)[40] <- "B3"

data[, 41] <- as.character(data[, 41])
attributes(data)$variable.labels[41] <- "Please specify these unmet needs"
names(data)[41] <- "B4"

data[, 42] <- as.numeric(data[, 42])
attributes(data)$variable.labels[42] <- "[Open Technology] How important are the following values for Linux Australia, as embodied in the Linux Australia Statement of Values (http://linux.org.au/values)?"
data[, 42] <- factor(data[, 42], levels=c(1,2,3,4),labels=c("Very important","Fairly important","Not very important","Not important at all"))
names(data)[42] <- "C1_1"

data[, 43] <- as.numeric(data[, 43])
attributes(data)$variable.labels[43] <- "[Community] How important are the following values for Linux Australia, as embodied in the Linux Australia Statement of Values (http://linux.org.au/values)?"
data[, 43] <- factor(data[, 43], levels=c(1,2,3,4),labels=c("Very important","Fairly important","Not very important","Not important at all"))
names(data)[43] <- "C1_2"

data[, 44] <- as.numeric(data[, 44])
attributes(data)$variable.labels[44] <- "[Freedom] How important are the following values for Linux Australia, as embodied in the Linux Australia Statement of Values (http://linux.org.au/values)?"
data[, 44] <- factor(data[, 44], levels=c(1,2,3,4),labels=c("Very important","Fairly important","Not very important","Not important at all"))
names(data)[44] <- "C1_3"

data[, 45] <- as.numeric(data[, 45])
attributes(data)$variable.labels[45] <- "[Respect] How important are the following values for Linux Australia, as embodied in the Linux Australia Statement of Values (http://linux.org.au/values)?"
data[, 45] <- factor(data[, 45], levels=c(1,2,3,4),labels=c("Very important","Fairly important","Not very important","Not important at all"))
names(data)[45] <- "C1_4"

data[, 46] <- as.numeric(data[, 46])
attributes(data)$variable.labels[46] <- "[Diversity] How important are the following values for Linux Australia, as embodied in the Linux Australia Statement of Values (http://linux.org.au/values)?"
data[, 46] <- factor(data[, 46], levels=c(1,2,3,4),labels=c("Very important","Fairly important","Not very important","Not important at all"))
names(data)[46] <- "C1_5"

data[, 47] <- as.numeric(data[, 47])
attributes(data)$variable.labels[47] <- "How much confidence do you have in the leadership of the current elected Council of Linux Australia?"
data[, 47] <- factor(data[, 47], levels=c(1,2,3,4),labels=c("A great deal of confidence","Quite a lot of confidence","Not very much confidence","No confidence at all"))
names(data)[47] <- "C2"

data[, 48] <- as.character(data[, 48])
attributes(data)$variable.labels[48] <- "Please explain why you chose \"{C2.shown}\""
names(data)[48] <- "C3"

data[, 49] <- as.numeric(data[, 49])
attributes(data)$variable.labels[49] <- "Overall, how effective do you think Linux Australia is?"
data[, 49] <- factor(data[, 49], levels=c(1,2,3,4),labels=c("Very effective","Effective","Not very effective","Not effective at all"))
names(data)[49] <- "C4"

data[, 50] <- as.character(data[, 50])
attributes(data)$variable.labels[50] <- "Please explain why you chose \"{C4.shown}\""
names(data)[50] <- "C5"

data[, 51] <- as.character(data[, 51])
attributes(data)$variable.labels[51] <- "What is your gender?"
names(data)[51] <- "D1"

data[, 52] <- as.numeric(data[, 52])
attributes(data)$variable.labels[52] <- "What is your age?"
data[, 52] <- factor(data[, 52], levels=c(1,2,3,4,5,6),labels=c("17 or younger","18 to 25","26 to 39","40 to 54","55 to 69","70 or older"))
names(data)[52] <- "D2"

data[, 53] <- as.numeric(data[, 53])
attributes(data)$variable.labels[53] <- "Are you currently in school or studying in higher education?"
data[, 53] <- factor(data[, 53], levels=c(1,2,3,4,5),labels=c("I am still at school","I am still at university at an undergraduate level","I am still at university at a postgraduate level","I am still at TAFE or other vocational training","No I am not currently in school, university, TAFE or in vocational training"))
names(data)[53] <- "D3"

data[, 54] <- as.numeric(data[, 54])
attributes(data)$variable.labels[54] <- "Do you have a higher educational qualification?"
data[, 54] <- factor(data[, 54], levels=c(1,2,3,4),labels=c("Yes - at a TAFE/vocational training level","Yes - at an undergraduate level","Yes - at a postgraduate or higher level","No"))
names(data)[54] <- "D4"

data[, 55] <- as.numeric(data[, 55])
attributes(data)$variable.labels[55] <- "Is the higher educational qualification in the field of Information Technology (I.T.)?"
data[, 55] <- factor(data[, 55], levels=c(1,2),labels=c("Yes","No"))
names(data)[55] <- "D5"

data[, 56] <- as.numeric(data[, 56])
attributes(data)$variable.labels[56] <- "Are you currently working for pay, did you work for pay in the past, or have you never been in paid work?"
data[, 56] <- factor(data[, 56], levels=c(1,2,3),labels=c("I am currently in paid work","I am not currently in paid work but I had paid work in the past","I have never had paid work"))
names(data)[56] <- "D6"

data[, 57] <- as.numeric(data[, 57])
attributes(data)$variable.labels[57] <- "{if(D6==\'1\',\'Are\',\'Were\')} you employed in the field of Information Technology (I.T.)?"
data[, 57] <- factor(data[, 57], levels=c(1,2),labels=c("Yes","No"))
names(data)[57] <- "D7"

data[, 58] <- as.numeric(data[, 58])
attributes(data)$variable.labels[58] <- "Are you retired?"
data[, 58] <- factor(data[, 58], levels=c(1,2),labels=c("Yes","No"))
names(data)[58] <- "D8"

data[, 59] <- as.numeric(data[, 59])
attributes(data)$variable.labels[59] <- "What state/territory in Australia or New Zealand do you currently reside in?"
data[, 59] <- factor(data[, 59], levels=c(1,2,3,4,5,6,7,8,9),labels=c("Australian Capital Territory","New South Wales","Northern Territory","Queensland","South Australia","Tasmania","Victoria","Western Australia","New Zealand"))
names(data)[59] <- "D9"

data[, 60] <- as.character(data[, 60])
attributes(data)$variable.labels[60] <- "[Other] What state/territory in Australia or New Zealand do you currently reside in?"
names(data)[60] <- "D9_other"

data[, 61] <- as.numeric(data[, 61])
attributes(data)$variable.labels[61] <- "Would you describe the place where you live as ..."
data[, 61] <- factor(data[, 61], levels=c(1,2,3,4),labels=c("A big city or suburbs of a big city","Town or regional centre","A country village","A farm or remote area"))
names(data)[61] <- "D10"

data[, 62] <- as.numeric(data[, 62])
attributes(data)$variable.labels[62] <- "Does where you live impact on your ability to attend a linux.conf.au?"
data[, 62] <- factor(data[, 62], levels=c(1,2),labels=c("Yes","No"))
names(data)[62] <- "D11"

data[, 63] <- as.character(data[, 63])
attributes(data)$variable.labels[63] <- "Please specify why"
names(data)[63] <- "D12"

data[, 64] <- as.character(data[, 64])
attributes(data)$variable.labels[64] <- "Is there anything else you would like to share with Linux Australia?"
names(data)[64] <- "D13"