Difference between revisions of "Evolutionary origin of human traits"

From Testiwiki
Jump to: navigation, search
(→‎Calculations)
(→‎Calculations)
Line 18: Line 18:
  
 
<rcode graphics="1" variables="
 
<rcode graphics="1" variables="
−
name:X|description:number of X column|22
+
name:X|description:number of X column|default:22|
 
name:Y|description:number of Y column|
 
name:Y|description:number of Y column|
−
name:fill|description:number of fill column|77
+
name:fill|description:number of fill column|default:77|
 
name:key|type:password|description:Encryption key">
 
name:key|type:password|description:Encryption key">
  
Line 145: Line 145:
 
data <- data[-(1:2) , ]
 
data <- data[-(1:2) , ]
 
#oprint(head(data))
 
#oprint(head(data))
 +
 
data <- dropall(data)
 
data <- dropall(data)
  
−
#for(i in 1:ncol(data)) {
+
leve <- list()
−
# print(levels(data[[i]]))
+
leve[[1]] <- c("Male", "Female")
−
#}
+
leve[[2]] <- c("29 or less", "30-39", "40-49", "50-59", "60 or more")
 +
leve[[3]] <- c("None", "Bachelor's degree", "Master's degree", "Doctor's degree")
 +
leve[[4]] <- c("Anthropology or archaeology", "Biology (animal physiology, anatomy or morphology)", "Biology (ecology)", "Biology (evolution)", "Biology (genetics or molecular biology)", "Biology (other, please specify)", "Geology", "Human cardiovascular or respiratory system", "Human musculoskeletal system", "Human nervous system", "Human nutrition", "Other aspects of human biology (please specify)", "Paleoanthropology", "Paleontology", "Other, please specify")
 +
leve[[5]] <- c("none", "1-10", "11-40", "41 or more")
 +
leve[[6]] <- c("Yes", "No")
 +
leve[[7]] <- c("Not at all", "I have some idea", "I know the hypotheses well")
 +
leve[[8]] <- c("Very likely", "Moderately likely", "No opinion", "Moderately unlikely", "Very unlikely")
 +
leve[[9]] <- c("Fully agree", "Mostly agree", "No opinion", "Mostly disagree", "Strongly disagree")
 +
leve[[10]] <- c("No", "Yes")
 +
leve[[11]] <- c("Considerably", "A little", "Not at all")
 +
leve[[12]] <- c("Common", "Rare", "Not seen")
 +
 
 +
chooselevel <- c(1, 2, NA, 3, rep(4, 15), rep(5, 4), 6, 7, rep(8, 51), rep(9, 20), 10, rep(11, 8), rep(12, 3))
 +
 
 +
for(i in 1:length(chooselevel)) {
 +
if(!is.na(chooselevel[i])) data[[i]] <- as.factor(leve[[chooselevel[i]]][as.numeric(as.character(data[[i]]))])
 +
}
 +
 
 +
data[[3]] <- paste(toupper(substring(data[[3]], 1, 1)), tolower(substring(data[[3]], 2)), sep = "")
 +
 
 +
data[[3]] <- ifelse(data[[3]] == "Brasil", "Brazil", data[[3]])
 +
 
 +
data[[3]] <- ifelse(data[[3]] == "Ch", "Switzerland", data[[3]])
 +
data[[3]] <- ifelse(data[[3]] == "Czech republich", "Czech Republic", data[[3]])
 +
data[[3]] <- ifelse(data[[3]] == "Korea, south", "Korea", data[[3]])
 +
data[[3]] <- ifelse(data[[3]] == "Mexi", "Mexico", data[[3]])
 +
data[[3]] <- ifelse(data[[3]] == "Northern ireland. u.k.", "UK", data[[3]])
 +
data[[3]] <- ifelse(data[[3]] == "Scotland uk", "UK", data[[3]])
 +
data[[3]] <- ifelse(data[[3]] == "Sweden (currently, but of u.s. origin)", "Sweden", data[[3]])
 +
data[[3]] <- ifelse(data[[3]] == "The uk", "UK", data[[3]])
 +
data[[3]] <- ifelse(data[[3]] == "United kingdom", "UK", data[[3]])
 +
data[[3]] <- ifelse(data[[3]] == "U,.s.", "USA", data[[3]])
 +
data[[3]] <- ifelse(data[[3]] == "U. s. a.", "USA", data[[3]])
 +
data[[3]] <- ifelse(data[[3]] == "U.k.", "UK", data[[3]])
 +
data[[3]] <- ifelse(data[[3]] == "United states", "USA", data[[3]])
 +
data[[3]] <- ifelse(data[[3]] == "United states of america", "USA", data[[3]])
 +
data[[3]] <- ifelse(data[[3]] == "U.s.", "USA", data[[3]])
 +
data[[3]] <- ifelse(data[[3]] == "Usaf", "USA", data[[3]])
 +
data[[3]] <- ifelse(data[[3]] == "Wales, uk", "UK", data[[3]])
 +
 
 +
data[[3]] <- ifelse(data[[3]] == "Usa", "USA", data[[3]])
 +
data[[3]] <- ifelse(data[[3]] == "Uk", "UK", data[[3]])
 +
data[[3]] <- ifelse(data[[3]] == "South africa", "South Africa", data[[3]])
 +
 
 +
data[[3]] <- as.factor(data[[3]])
 +
data[[3]]
 +
 
 +
#MPF-731
 +
#sininen farmariaudi
 +
#16.40 10.3.2013
 +
#Orivesi-Jämsä itään n. 150 km/h
 +
 
 +
oprint(head(data))
  
 
X <- colnames(data)[X]
 
X <- colnames(data)[X]

Revision as of 15:54, 10 March 2013



Question

Why and how did humans become so different from other apes?

Answer

Rationale

There are conflicting hypotheses to explain why the traits that so clearly distinguish humans from other primates originally evolved. One idea is that the ancestors of humans came to live in a different kind of environment than the ancestors of chimpanzees and gorillas, and hence experienced different selection pressures and obtained a suite of unique traits as adaptations to the new environment. What that new environment was and which selection pressures were most important has been debated, however, and a number of hypotheses based on ideas other than environmental adaptation have also been proposed. To date, general discussion on the topic seems mostly to have focused on finding merit or flaws in one hypothesis at a time. The purpose of this page is to provide a structured forum for the general evaluation and comparison of the different hypotheses on human origins.

Calculations

number of X column:

number of Y column:

number of fill column:

Encryption key:

+ Show code

See also

Human evolution hypotheses described in Wikipedia:

Keywords

References


Related files

<mfanonymousfilelist></mfanonymousfilelist>

Retrieved from "http://www.opasnet.org/testiwiki/index.php?title=Evolutionary_origin_of_human_traits&oldid=29470"