peak_table

library(dplyr)

Attaching package: 'dplyr'

The following objects are masked from 'package:stats':

    filter, lag

The following objects are masked from 'package:base':

    intersect, setdiff, setequal, union

library(tidyr)

load(file="Z:/Isaac/Visual Features/1-5/peak table/trained_on_all.RData")
load(file="Z:/Isaac/Visual Features/1-5/peak table/trained_individually.RData")

peaktable <- left_join(mns_trained_on_all,mns_trained_on_itself_only, by="sow",suffix = c("_all","_individual"))

peaktable$diff <- peaktable$mx_loc_all - peaktable$mx_loc_individual
peaktable

# A tibble: 9 × 4
  sow   mx_loc_all mx_loc_individual   diff
  <fct>      <dbl>             <dbl>  <dbl>
1 4         -22.1             -22.7   0.667
2 6         -14.7             -14.2  -0.500
3 8         -17.2             -11.4  -5.83 
4 10        -16.0             -12.1  -3.83 
5 12        -27.0             -26.0  -1.00 
6 18         -2.82             -2.98  0.167
7 22        -23.9             -23.5  -0.333
8 24        -17.8             -15.9  -1.83 
9 26        -13.1              -6.73 -6.33 

sum(peaktable$diff)

[1] -18.83317