LogisticRegression Table_to_LogisticRegression (Table me, const wchar *factors_columnLabelString, const wchar *dependent1_columnLabel, const wchar *dependent2_columnLabel) { try { long numberOfFactors; autoNUMvector <long> factors_columnIndices (Table_getColumnIndicesFromColumnLabelString (me, factors_columnLabelString, & numberOfFactors), 1); long dependent1_columnIndex = Table_getColumnIndexFromColumnLabel (me, dependent1_columnLabel); long dependent2_columnIndex = Table_getColumnIndexFromColumnLabel (me, dependent2_columnLabel); autoLogisticRegression thee = _Table_to_LogisticRegression (me, factors_columnIndices.peek(), numberOfFactors, dependent1_columnIndex, dependent2_columnIndex); return thee.transfer(); } catch (MelderError) { Melder_throw (me, ": logistic regression not performed."); } }
autoERP thee = my f_toERP_mean (); praat_new (thee.transfer(), my name, L"_mean"); } END /***** ERPTier & Table *****/ FORM (ERPTier_Table_extractEventsWhereColumn_number, L"Extract events where column (number)", 0) WORD (L"Extract all events where column...", L"") RADIO_ENUM (L"...is...", kMelder_number, DEFAULT) REAL (L"...the number", L"0.0") OK DO ERPTier erpTier = FIRST (ERPTier); Table table = FIRST (Table); long columnNumber = Table_getColumnIndexFromColumnLabel (table, GET_STRING (L"Extract all events where column...")); autoERPTier thee = erpTier -> f_extractEventsWhereColumn_number (table, columnNumber, GET_ENUM (kMelder_number, L"...is..."), GET_REAL (L"...the number")); praat_new (thee.transfer(), erpTier -> name); END FORM (ERPTier_Table_extractEventsWhereColumn_text, L"Extract events where column (text)", 0) WORD (L"Extract all events where column...", L"") OPTIONMENU_ENUM (L"...", kMelder_string, DEFAULT) SENTENCE (L"...the text", L"hi") OK DO ERPTier erpTier = FIRST (ERPTier); Table table = FIRST (Table); long columnNumber = Table_getColumnIndexFromColumnLabel (table, GET_STRING (L"Extract all events where column...")); autoERPTier thee = erpTier -> f_extractEventsWhereColumn_string (table, columnNumber, GET_ENUM (kMelder_string, L"..."), GET_STRING (L"...the text")); praat_new (thee.transfer(), erpTier -> name);
static autoTextGrid Table_to_TextGrid (Table me, const char32 *text, double xmin, double xmax) { //Table_createWithColumnNames (0, L"time type type-t t-pos length a-pos sample id uniq"); try { long length, textLength = str32len (text); long numberOfRows = my rows.size; long timeColumnIndex = Table_getColumnIndexFromColumnLabel (me, U"time"); long typeColumnIndex = Table_getColumnIndexFromColumnLabel (me, U"type"); long tposColumnIndex = Table_getColumnIndexFromColumnLabel (me, U"t-pos"); long idColumnIndex = Table_getColumnIndexFromColumnLabel (me, U"id"); autoTextGrid thee = TextGrid_create (xmin, xmax, U"sentence clause word phoneme", U""); TextGrid_setIntervalText (thee.get(), 1, 1, text); long p1c = 1, p1w = 1; double time_phon_p = xmin; bool wordEnd = false; autoMelderString mark; IntervalTier clauses = (IntervalTier) thy tiers->at [2]; IntervalTier words = (IntervalTier) thy tiers->at [3]; IntervalTier phonemes = (IntervalTier) thy tiers->at [4]; for (long i = 1; i <= numberOfRows; i++) { double time = Table_getNumericValue_Assert (me, i, timeColumnIndex); int type = Table_getNumericValue_Assert (me, i, typeColumnIndex); long pos = Table_getNumericValue_Assert (me, i, tposColumnIndex); if (type == espeakEVENT_SENTENCE) { // Only insert a new boundary, no text // text will be inserted at end sentence event if (time > xmin && time < xmax) { IntervalTier_addBoundaryUnsorted (clauses, clauses -> intervals.size, time, U"", true); } p1c = pos; } else if (type == espeakEVENT_END) { // End of clause: insert new boundary, and fill left interval with text length = pos - p1c + 1; MelderString_ncopy (&mark, text + p1c - 1, length); MelderString_trimWhiteSpaceAtEnd (& mark); if (time > xmin && time < xmax) { IntervalTier_addBoundaryUnsorted (clauses, clauses -> intervals.size, time, mark.string, true); } else { TextGrid_setIntervalText (thee.get(), 2, clauses -> intervals.size, mark.string); } p1c = pos; // End of clause always signals "end of a word" if (pos <= textLength) { length = pos - p1w + 1; MelderString_ncopy (&mark, text + p1w - 1, length); MelderString_trimWhiteSpaceAtEnd (& mark); if (time > xmin && time < xmax) { IntervalTier_addBoundaryUnsorted (words, words -> intervals.size, time, mark.string, true); } else { TextGrid_setIntervalText (thee.get(), 3, words -> intervals.size, mark.string); } // now the next word event should not trigger setting the left interval text wordEnd = false; } } else if (type == espeakEVENT_WORD) { if (pos < p1w) { continue; } if (time > xmin && time < xmax) { length = pos - p1w; if (pos == textLength) { length++; } MelderString_ncopy (&mark, text + p1w - 1, length); MelderString_trimWhiteSpaceAtEnd (& mark); IntervalTier_addBoundaryUnsorted (words, words -> intervals.size, time, ( wordEnd ? mark.string : U"" ), true); } wordEnd = true; p1w = pos; } else if (type == espeakEVENT_PHONEME) { const char32 *id = Table_getStringValue_Assert (me, i, idColumnIndex); if (time > time_phon_p) { // Insert new boudary and label interval with the id // TODO: Translate the id to the correct notation TextInterval ti = phonemes -> intervals.at [phonemes -> intervals.size]; if (time > ti -> xmin && time < ti -> xmax) { IntervalTier_addBoundaryUnsorted (phonemes, phonemes -> intervals.size, time, id, false); } } else { // Just in case the phoneme starts at xmin we only need to set interval text TextGrid_setIntervalText (thee.get(), 4, phonemes -> intervals.size, id); } time_phon_p = time; } } clauses -> intervals. sort (); words -> intervals. sort (); phonemes -> intervals. sort (); IntervalTier_mergeSpecialIntervals (phonemes); // Merge neighbouring empty U"" and U"\001" intervals IntervalTier_removeVeryShortIntervals (words); IntervalTier_removeVeryShortIntervals (clauses); /* Use empty intervals in phoneme tier for more precision in the word tier */ IntervalTier_insertEmptyIntervalsFromOtherTier (words, phonemes); IntervalTier_mergeSpecialIntervals (words); // Merge neighbouring empty U"" and U"\001" intervals return thee; } catch (MelderError) { Melder_throw (U"TextGrid not created from Table with events."); } }
static autoTextGrid Table_to_TextGrid (Table me, const char32 *text, double xmin, double xmax) { //Table_createWithColumnNames (0, L"time type type-t t-pos length a-pos sample id uniq"); try { long length, textLength = str32len (text); long numberOfRows = my rows -> size; long timeColumnIndex = Table_getColumnIndexFromColumnLabel (me, U"time"); long typeColumnIndex = Table_getColumnIndexFromColumnLabel (me, U"type"); long tposColumnIndex = Table_getColumnIndexFromColumnLabel (me, U"t-pos"); long idColumnIndex = Table_getColumnIndexFromColumnLabel (me, U"id"); autoTextGrid thee = TextGrid_create (xmin, xmax, U"sentence clause word phoneme", U""); TextGrid_setIntervalText (thee.peek(), 1, 1, text); long p1c = 1, p1w = 1; double t1p = xmin; bool wordEnd = false; autoMelderString mark; IntervalTier itc = (IntervalTier) thy tiers -> item[2]; IntervalTier itw = (IntervalTier) thy tiers -> item[3]; IntervalTier itp = (IntervalTier) thy tiers -> item[4]; for (long i = 1; i <= numberOfRows; i++) { double time = Table_getNumericValue_Assert (me, i, timeColumnIndex); int type = Table_getNumericValue_Assert (me, i, typeColumnIndex); long pos = Table_getNumericValue_Assert (me, i, tposColumnIndex); if (type == espeakEVENT_SENTENCE) { // Only insert a new boundary, no text // text will be inserted at end sentence event if (time > xmin and time < xmax) { IntervalTier_addBoundaryUnsorted (itc, itc -> intervals -> size, time, U"", true); } p1c = pos; } else if (type == espeakEVENT_END) { // End of clause: insert new boundary, and fill left interval with text length = pos - p1c + 1; MelderString_ncopy (&mark, text + p1c - 1, length); MelderString_trimWhiteSpaceAtEnd (&mark); if (time > xmin and time < xmax) { IntervalTier_addBoundaryUnsorted (itc, itc -> intervals -> size, time, mark.string, true); } else { TextGrid_setIntervalText (thee.peek(), 2, itc -> intervals -> size, mark.string); } p1c = pos; // End of clause always signals "end of a word" if (pos <= textLength) { length = pos - p1w + 1; MelderString_ncopy (&mark, text + p1w - 1, length); MelderString_trimWhiteSpaceAtEnd (&mark); if (time > xmin and time < xmax) { IntervalTier_addBoundaryUnsorted (itw, itw -> intervals -> size, time, mark.string, true); } else { TextGrid_setIntervalText (thee.peek(), 3, itw -> intervals -> size, mark.string); } // now the next word event should not trigger setting the left interval text wordEnd = false; } } else if (type == espeakEVENT_WORD) { if (pos < p1w) { continue; } if (time > xmin and time < xmax) { length = pos - p1w; if (pos == textLength) length++; MelderString_ncopy (&mark, text + p1w - 1, length); MelderString_trimWhiteSpaceAtEnd (&mark); IntervalTier_addBoundaryUnsorted (itw, itw -> intervals -> size, time, (wordEnd ? mark.string : U""), true); } wordEnd = true; p1w = pos; } else if (type == espeakEVENT_PHONEME) { const char32 *id = Table_getStringValue_Assert (me, i, idColumnIndex); if (time > t1p) { // Insert new boudary and label interval with the id // TODO: Translate the id to the correct notation TextInterval ti = (TextInterval) itp -> intervals -> item[itp -> intervals -> size]; if (time > ti -> xmin and time < ti -> xmax) { IntervalTier_addBoundaryUnsorted (itp, itp -> intervals -> size, time, id, false); } } else { // Just in case the phoneme starts at xmin we only need to set interval text TextGrid_setIntervalText (thee.peek(), 4, itp -> intervals -> size, id); } t1p = time; } } Sorted_sort (itc -> intervals); Sorted_sort (itw -> intervals); Sorted_sort (itp -> intervals); return thee; } catch (MelderError) { Melder_throw (U"TextGrid not created from Table with events."); } }