nf = "S1_1000_T1-add.csv"
values = read.table(nf, sep = " ", header = F)
values
svalues = values[order(values[3,]]
svalues = values[order(values[3,])]
svalues
values[3,]
values[,3]
values[,2]
svalues = values[order(values[,2])]
svalues = values[order(V2)]
svalues = values[order(values[,2]),]
svalues
sapply(c(1,3,5), mean)
apply(c(1,3,5), mean)
mean(c(1,2))
lapply(c(1,3,5), mean)
top
l1 = vector(mode="list", length=3)
l1 = c(1,2,3)
l1
l1[[1]] = c(1,3,5)
l1[[1]] = 1
l1[3]] = 42
l1[[3]] = 42
l1
l2 = vector(mode="list", length=3)
l2[[1]][[1]] = 1
l2
l2[[2]][[1]] = 1
l2[[3]][[1]] = 1
l2[[42]][[1]] = 1
l3 = vector(mode="list", length=3)
l3[[42]][[1]] = 1
l3[[42]][[1]] = 1
l2
lapply(l2, mean)
sapply(l2, mean)
apply(l2, mean)
happly(l2, mean)
sapply(l2, mean)
mean(sapply(l2))
mean(as.vector(l2))
as.vector(l2)
sapply(seq(3), function(x) mean(l2[[x]][1])
)
sapply(seq(3), function(x) l2[[x]][1])
mean(sapply(seq(3), function(x) l2[[x]][1]))
source("fetching_functions.r")
test(2)
source("fetching_functions.r")
source("fetching_functions.r")
getArgselected(c(1,2,3,4))
getArgselected(c(1,2,3,"4"))
na = getArgselected(c(1,2,3,"4"))
n = na[[1]]
n
n = na[1]
n
a = na[2]
a
a = na[[2]]
a
n, a = na
source("fetching_functions.r")
getMapHeight("/home/athoni/newgitmtp/METAPOP/raw_outputs/genetic/")
seq(0)
seq(-1)
mean(1,3,4)
mean(1,3,4, Nan)
mean(1,3,4, Nanf)
mean(c(1,2,3,Nan)
)
mean(c(1,2,3,NaN))
mean(c(1,2,3,NaN), na.rm = True)
mean(c(1,2,3,NaN), na.rm = true)
mean(c(1,2,3,NaN), na.rm = TRUE)
list(as.integer(strsplit(",2,",")[[1]])))
)
)
list(as.integer(strsplit(",2",",")[[1]])))
list(as.integer(strsplit(",2",",")[[1]]))))
list(as.integer(strsplit(",2",",")[[1]]))
length(list(as.integer(strsplit(",2",",")[[1]])))
if(list(as.integer(strsplit(",2",",")[[1]]))[1] == NA){print("ONE")}
if(list(as.integer(strsplit(",2",",")[[1]]))[[1]]==NA){print("ONE")}
list(as.integer(strsplit(",2",",")[[1]]))[[1]]
if(list(as.integer(strsplit(",2",",")[[1]]))[[1]][1]==NA){print("ONE")}
length(list(as.integer(strsplit(",2",",")[[1]][1])))
length(list(as.integer(strsplit(",2",",")[[1]][[1]])))
length(list(as.integer(strsplit(",2",",")[[1]]))[[1]])
grepl("ah,", ".")
grepl("ah,", ",")
grepl(",", "ah,")
grepl(".", "ah,")
grepl(".", "ah")
? counting
grepl(".", "ah,", fixed=TRUE)
grepl(".", "ah.", fixed=TRUE)
grepl(";", c("a",";b", fixed=TRUE)
)
grepl(";", paste(c("a",";b"), fixed=TRUE)
)
grepl(";", paste(c("a",";b")), fixed=TRUE)
 paste(c("a",";b"))
TRUE in grepl(";", paste(c("a",";b")), fixed=TRUE)
TRUE %in% grepl(";", paste(c("a",";b")), fixed=TRUE)
";" %in% c("a",";b")
