From 4bdd3be006eeb2efbcb6248ac29d2bdd1d041740 Mon Sep 17 00:00:00 2001 From: David Nolte Date: Mon, 1 Feb 2021 11:04:19 -0500 Subject: [PATCH] Delete MakeIntraSet.m --- MakeIntraSet.m | 44 -------------------------------------------- 1 file changed, 44 deletions(-) delete mode 100644 MakeIntraSet.m diff --git a/MakeIntraSet.m b/MakeIntraSet.m deleted file mode 100644 index c8698f5..0000000 --- a/MakeIntraSet.m +++ /dev/null @@ -1,44 +0,0 @@ -% function Iset = MakeIntraSet(PatName) -% Converted from BuildIntraSet on 9/1/17 -% Iset.FVIntra(Nperm,Nbm) - -function Iset = MakeIntraSet(PatName) - -homepath = pwd; -sz = length(homepath); -flag = 0; ind = 0; -while flag == 0 - ind = ind + 1; - if strcmp(homepath(sz-ind),'/') - flag = 1; endpth = sz-ind; - end -end -TrialName = homepath(endpth+1:sz); - -compressin = input('Compressed input: 0 = raw 1 = compressed'); - -Trialfile = strcat(TrialName,'_Trial'); -run(Trialfile) - -if compressin == 1 - pathwrk = strcat(homepath,'/dbOutComp',TrialName); -else - pathwrk = strcat(homepath,'/dbOut',TrialName); -end - -Nperm = Ndrug*(Ndrug-1)/2; -Npat = 1; - -Ptmp = Pat2WellSet(PatName,drug,pathwrk); %FUNCTION: /Userfunctions/Pat2WellSet - -Isetmp = IntraSet(Ptmp); % OBJECT: WellSet - -Iset.FVIntra(:,:) = Isetmp.FVIntra(1,:,:); -Iset.FVIntrast(:,:) = Isetmp.FVIntrast(1,:,:); - -Iset.PatientName = PatName; -Iset.DrugName = drug; -Iset.Npat = Npat; -Iset.Ndrug = Ndrug; -Iset.Nperm = Ndrug*(Ndrug-1)/2; -