Shake02ParamEstMultivar.hs

#!/usr/bin/env stack
{- stack script
 --resolver lts-18.28
 --package shake,filepath
 -}

import ShakeUtils
import Development.Shake

main :: IO ()
main = shakeArgs myShakeOpts $ do

  want $ [
      dataParamExp "distance_products.RData"
    , dataParamExp "crossvalidation_kernel_comparison.RData"
    , dataParamExp "crossvalidation_best_kernels.RData"
    , dataParamExp "crossvalidation_multivar_comparison.RData"
    ]

  code02 "01b_distance_correlation.RC8M50" %$
    [ dataGeno "janno_final.RData"
    , dataGeno "multivar_perm_obs_bundles.RData"
    , code02 "01a_distance_helper_functions.R"
    ] -->
    [ dataParamExp "distance_products.RData" ]

  code02 "02b_sge_crossvalidation.shq" %$
    [ code02 "02a_crossvalidation.R"
    , dataGeno "janno_final.RData"
    , dataGeno "multivar_perm_obs_bundles.RData"
    , dataParamExp "distance_products.RData"
    ] -->
    [ dataParamExpCrossval "interpol_comparison_C1_mds_u_0.RData" ]

  code02 "02c_modify_crossvalidation_results.RC8M50" %$
    [ code02 "01a_distance_helper_functions.R"
    , dataParamExp "distance_products.RData"
    , dataParamExpCrossval "interpol_comparison_C1_mds_u_0.RData"
    , code02 "01a_distance_helper_functions.R"
    ] -->
    [ dataParamExp "crossvalidation_kernel_comparison.RData"
    , dataParamExp "crossvalidation_best_kernels.RData"
    , dataParamExp "crossvalidation_multivar_comparison.RData"
    ]