library(reticulate)
path_to_python <- "/home/david/anaconda3/bin/python"
use_python(path_to_python)
py_config()
## python:         /home/david/anaconda3/bin/python
## libpython:      /home/david/anaconda3/lib/libpython3.6m.so
## pythonhome:     /home/david/anaconda3:/home/david/anaconda3
## version:        3.6.4 |Anaconda, Inc.| (default, Jan 16 2018, 18:10:19)  [GCC 7.2.0]
## numpy:          /home/david/anaconda3/lib/python3.6/site-packages/numpy
## numpy_version:  1.14.0
## 
## python versions found: 
##  /home/david/anaconda3/bin/python
##  /usr/bin/python
##  /usr/bin/python3
##  /home/david/anaconda2/bin/python
##  /home/david/venv/bin/python
parselmouth <- import("parselmouth.praat")
praat <- import("parselmouth")
voiceID <- '/home/david/Dropbox/Python3/Praat/audio/m1750_hi.wav'
f0min <- 75
f0max <- 300
unit <- "Hertz"
sound <- praat$Sound(voiceID)
duration <- parselmouth$call(sound, "Get total duration") # duration
pitch <- parselmouth$call(sound, "To Pitch", 0.0, f0min, f0max) #create a praat pitch object
meanF0 <- parselmouth$call(pitch, "Get mean", 0, 0, unit) # get mean pitch
stdevF0 <- parselmouth$call(pitch, "Get standard deviation", 0 ,0, unit) # get standard deviation
duration
## [1] 9.473741
meanF0
## [1] 117.9415
stdevF0
## [1] 19.25767
import parselmouth 
from parselmouth.praat import call
def measurePitch(voiceID, f0min, f0max, unit):
    sound = parselmouth.Sound(voiceID) # read the sound
    duration = call(sound, "Get total duration") # duration
    pitch = call(sound, "To Pitch", 0.0, f0min, f0max) #create a praat pitch object
    meanF0 = call(pitch, "Get mean", 0, 0, unit) # get mean pitch
    stdevF0 = call(pitch, "Get standard deviation", 0 ,0, unit) # get standard deviation
    return duration, meanF0, stdevF0
voiceID = '/home/david/Dropbox/Python3/Praat/audio/m1750_hi.wav'
f0min = 75
f0max = 300
unit = "Hertz"
(duration, meanF0, stdevF0) = measurePitch(voiceID, f0min, f0max, unit)
stuff = f"Duration: {duration}\nMean F0: {meanF0}\nStandard Deviation: {stdevF0}"
print(stuff)
## Duration: 9.47374149659864
## Mean F0: 117.94152882236595
## Standard Deviation: 19.257673917415236