tb[1,]
ls()
system("ls")
system("ls -a")
source("R/load.R")
source('R/data.R')
tb[1,]
source("R/prepare.R")
source("R/manip_ppf.R")
source("R/manip_st_pp.R")
source("R/manip_st_pp.R")
ls
ls()
st_pp[1,]
source("R/manip_ppf.R")
source("R/st_pp.R")
source("R/manip_st_pp.R")
source("R/load.R")
attach(st_pp)
st_pp[MN=="ch" & PPF==1,"SPP"]<-1
st_pp[MN=="ch" & PPF==0,"SPP"]<-"N"
detach()
attach(st_pp)
summary(SPP)
khprintid(st_pp[SPP==0 & T==1,][1,])
source("R/load.R")
khprintid(st_pp[SPP==0 & T==1,], one=F, comp=F)
source("R/load.R")
attach(st_pp)
st_pp[LEF==1 & SPP=="N",]
st_pp[LEF==1,]
st_pp[1,]
st_pp[1,"LEF"]
source("R/manip_st_pp.R")
detach(st_pp)
attach(st_pp)
st_pp[LEF==1 & SPP=="N",]
summary(st_pp[SPP=="N","LEF"])
summary(st_pp[SPP=="N","MR"])
summary(st_pp[SPP=="N","MC"])
summary(st_pp[SPP=="N","MN"])
khedit(tb[tb[,"MR"]=="debatre",])
khvim(tb[tb[,"MR"]=="debatre",])
tb[tb[,"MR"]=="debatre",]
tb[tb[,"MR"]=="debatre","MRo"]<-"de"
tb[tb[,"MR"]=="debatre","MR"]<-1
tb[,"MR"]<-factor(tb[,"MR"])
tb[,"MRo"]<-factor(tb[,"MRo"])
tr[,"MR"]
tr[,"MRo"]
levels(tr[,"MR"])<-c(0,1,1)
st_pp[,"MRo"]
st_pp[,"MR"]
levels(st_pp[,"MR"])<-c(0,1,1)
st_pp[,"MR"]
st_pp[st_pp[,"MRo"]=="debattre","MRo"]
st_pp[st_pp[,"MRo"]=="debatre","MRo"]
st_pp[st_pp[,"MRo"]=="debatre","MRo"]<-"de"
detach()
attach(st_pp)
summary(st_pp[SPP=="N", "LEF"])
summary(st_pp[SPP=="N", "MR"])
summary(st_pp[SPP=="N", "MC"])
summary(st_pp[SPP=="N", "MN"])
table(st_pp[SPP=="N", c("LEF","RB")])
table(st_pp[SPP=="N", c("RB","LEF")])
s<-table(st_pp[SPP=="N", c("RB","LEF")])
round(s/rowSums(s)*100,2)
s<-round(s/rowSums(s)*100,2)
s[order(s[,1]),]
s<-table(st_pp[SPP=="N", c("RB","LEF")]);round(s<-s/rowSums(s)*100,2);s[order(s[,1]),]
s<-table(st_pp[SPP=="N", c("RB","LEF")]);round(s<-s/rowSums(s)*100,2);s<-s[order(s[,1]),]
s
s<-table(st_pp[SPP=="N", c("RB","MR")]);round(s<-s/rowSums(s)*100,2);s<-s[order(s[,1]),]
s<-table(st_pp[SPP=="N", c("RB","MR")]);round(s<-s/rowSums(s)*100,2);s<-s[order(s[,1]),]
s<-table(st_pp[SPP=="N", c("RB","MC")]);round(s<-s/rowSums(s)*100,2);s<-s[order(s[,1]),]
s<-table(st_pp[SPP=="N", c("RB","MN")]);round(s<-s/rowSums(s)*100,2);s<-s[order(s[,1]),]
s<-table(st_pp[SPP=="N", c("RB","MN")]);round(s<-s/rowSums(s)*100,2);s<-s[order(s[,2]),]
s<-table(st_pp[SPP=="N", c("RB","MN")]);round(s<-s/rowSums(s)*100,2);s<-s[order(s[,4]),]
s<-table(st_pp[SPP=="N", c("RB","MN")]);round(s<-s/rowSums(s)*100,2);s<-s[order(s[,2]),]
s
s<-table(st_pp[SPP=="N", c("RB","MR")]);round(s<-s/rowSums(s)*100,2);s<-s[order(s[,1]),]
s
s<-table(st_pp[SPP=="N", c("RB","MC")]);round(s<-s/rowSums(s)*100,2);s<-s[order(s[,1]),]
s
source("R/load.R")
source("R/load.R")
