Commit ccabb932 authored by peguerin's avatar peguerin
Browse files

no scale underlying data fig 3

parent cee3ce1b
......@@ -134,14 +134,16 @@ modAutocovF=lm(acinv2a~SST+nb_species+nb_indv_mean+regions+Alt+SlopeAvg,data= en
autocor=residuals(modAutocovF)
## underlying data fig 3c
selectnoScaleDcF=dcF[which(dcF$cell %in% env2$cell),]
nom_des_regions=dcF.r1[which(dcF.r1$cell %in% env2$cell),]$regions
underlying_data_fig3c=data.frame(
x=env2$x,
y=env2$y,
mean_genetic_diversity=env2$GD_mean,
regional_temperature=env2$SST,
regions=env2$regions,
number_of_species=env2$nb_species,
number_of_sequences=env2$nb_indv_mean,
x=selectnoScaleDcF$x,
y=selectnoScaleDcF$y,
mean_genetic_diversity=selectnoScaleDcF$GD_mean,
regional_temperature=selectnoScaleDcF$SST,
regions=nom_des_regions,
number_of_species=selectnoScaleDcF$nb_species,
number_of_sequences=selectnoScaleDcF$nb_indv_mean,
autocor=autocor
)
write.table(underlying_data_fig3c,"14-tables/figure_3c_underlying_data.tsv",col.names=T,row.names=F,sep="\t")
......@@ -272,14 +274,17 @@ dcM.r4<-data.frame(x=dcM.r3$x,
### Missing value distance to the coast : 2 missing values
dcM.r4$distanceFromShore[c(139,337)]=mean(na.omit(dcM.r4)$distanceFromShore)
## underlying data
selectnoScaleDcM=dcM[which(dcM$cell %in% dcM.r4$cell),]
nom_des_regions=dcM.r4$regions
underlying_data_fig3a=data.frame(
x=dcM.r4$x,
y=dcM.r4$y,
mean_genetic_diversity=dcM.r4$GD_mean,
sea_surface_temperature=dcM.r4$SST,
regions=dcM.r4$regions,
number_of_species=dcM.r4$nb_species,
number_of_sequences=dcM.r4$nb_indv_mean
x=selectnoScaleDcM$x,
y=selectnoScaleDcM$y,
mean_genetic_diversity=selectnoScaleDcM$GD_mean,
sea_surface_temperature=selectnoScaleDcM$SST,
regions=nom_des_regions,
number_of_species=selectnoScaleDcM$nb_species,
number_of_sequences=selectnoScaleDcM$nb_indv_mean
)
write.table(underlying_data_fig3a,"14-tables/figure_3a_underlying_data.tsv",col.names=T,row.names=F,sep="\t")
......
This diff is collapsed.
This diff is collapsed.
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment